home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / cmdity / yk212src.lha / Yak_2.12_Src / Prefs / Convert / Main.c < prev   
C/C++ Source or Header  |  1996-01-20  |  17KB  |  639 lines
  1. /*
  2.  * Convert Yak 1.3-5 settings files to Yak 2.0 settings file.
  3.  *
  4.  * Read 1.3-5 yak.prefs & 1.5 yak.hotkeys
  5.  * Write ENV:yak.prefs
  6.  * 
  7.  * Ph. Bastiani, 8/10/94.
  8.  *
  9.  */
  10.  
  11. #define __USE_SYSBASE 
  12.  
  13. #include <exec/types.h>
  14. #include <exec/memory.h>
  15. #include <dos/dos.h>
  16. #include <dos/dostags.h>
  17. #include <intuition/intuition.h>
  18. #include <libraries/commodities.h>
  19. #include <libraries/locale.h>
  20. #include <libraries/iffparse.h>
  21. #include <workbench/startup.h>
  22.  
  23. #include <proto/exec.h>
  24. #include <proto/commodities.h>
  25. #include <proto/dos.h>
  26. #include <proto/intuition.h>
  27. #include <proto/locale.h>
  28. #include <proto/iffparse.h>
  29. #include <proto/wb.h>
  30.  
  31. #include <string.h>
  32. #include <stdarg.h>
  33.  
  34. #include "code.h"
  35. #include "yak.h"
  36. #include "handlers.h"
  37. #include "hotkey_types.h"
  38. #include "hotkey_naming.h"
  39. #include "icon.h"
  40. #include "Settings.h"
  41.  
  42. #define CATCOMP_BLOCK
  43. #define CATCOMP_NUMBERS
  44. #include "yak_locale_strings.h"
  45. #undef CATCOMP_BLOCK
  46.  
  47. extern struct WBStartup *WBMsg;
  48. extern void AutomaticNaming (YakHotKey *yhk);
  49.  
  50. #ifdef _DCC
  51. extern struct ExecBase       *SysBase;
  52. extern struct DosLibrary     *DOSBase;
  53.  
  54. struct IntuitionBase  *IntuitionBase;
  55.  
  56. /* global data - library bases and the like */
  57. struct Library  *IFFParseBase;
  58. struct Library  *CxBase;
  59.  
  60. #endif
  61.  
  62. static char *DefaultAREXXPort="AREXX";
  63.  
  64. static char *ProgramName=NULL;
  65.  
  66. #define CONFIG_ID13   0x594b3133      /* YK13 */
  67. #define CONFIG_ID15   0x594b3135      /* YK15 */
  68. #define HOTKEY_ID15   0x594B4B31      /* YKK1 */
  69.  
  70.  
  71. /*
  72.  * Old types of hotkey currently supported
  73.  */
  74. #define OLD15_DOS_COMMAND          0
  75. #define OLD15_CLOSE_WINDOW         1
  76. #define OLD15_ZIP_WINDOW           2
  77. #define OLD15_SHRINK_WINDOW        3
  78. #define OLD15_EXPAND_WINDOW        4
  79. #define OLD15_CYCLE_WINDOWS        5
  80. #define OLD15_OPEN_PALETTE         6
  81. #define OLD15_SCREEN_TO_FRONT      7
  82. #define OLD15_SCREEN_TO_BACK       8
  83. #define OLD15_ACTIVATE_WORKBENCH   9
  84. #define OLD15_CENTRE_SCREEN       10
  85. #define OLD15_BLANK_DISPLAY       11
  86. #define OLD15_INSERT_TEXT         12
  87. #define OLD15_INSERT_DATE         13
  88. #define OLD15_SHOW_INTERFACE      14
  89. #define OLD15_BACK_CYCLE_WINDOWS  15
  90. #define OLD15_SET_DEF_PUB_SCREEN  16
  91. #define OLD15_MENU_SHORTCUT       17
  92. #define OLD15_NUM_HOTKEY_TYPES    18
  93.  
  94. #define OLD13_SHOW_INTERFACE       0
  95. #define OLD13_CLOSE_WINDOW         1
  96. #define OLD13_ZIP_WINDOW           2
  97. #define OLD13_SHRINK_WINDOW        3
  98. #define OLD13_EXPAND_WINDOW        4
  99. #define OLD13_ACTIVATE_WORKBENCH   5
  100. #define OLD13_OPEN_PALETTE         6
  101. #define OLD13_DOS_COMMAND          7
  102. #define OLD13_INSERT_DATE          8
  103. #define OLD13_CYCLE_WINDOWS        9
  104. #define OLD13_SCREEN_TO_FRONT     10
  105. #define OLD13_CENTRE_SCREEN       11
  106. #define OLD13_SCREEN_TO_BACK      12
  107. #define OLD13_BLANK_DISPLAY       13
  108. #define OLD13_NUM_HOTKEY_TYPES    14
  109.  
  110.  
  111.  
  112. static BOOL OldScreenCycling; /* temporary variable */
  113.  
  114. BOOL *convtog[] = {
  115.    &Window_To_Front.State,
  116.    &Window_To_Back.State,
  117.    &autopoint,
  118.    &keyactivate,
  119.    &OldScreenCycling,
  120.    &autopop,
  121.    &rmbactivate,
  122.    NULL,             /* OBSOLETE */
  123.    NULL,             /* OBSOLETE */
  124.    &wildstar,
  125.    &scractivate,
  126.    &noclick,
  127.    &mmbactivate,
  128.    &blackborder,
  129.    &blankmouseonkey,
  130.    &mmbshift,
  131.    &unixdirs
  132.    };
  133.  
  134. STRPTR convpat[] = {
  135.    patterns[0].patstr,
  136.    Window_To_Front.ScreenPatternData.patstr,
  137.    patterns[1].patstr,
  138.    NULL
  139.    };
  140.  
  141.  
  142.  
  143. UWORD conv13act[] = {
  144.    SHOW_INTERFACE, 
  145.    CLOSE_WINDOW, 
  146.    ZIP_WINDOW, 
  147.    SHRINK_WINDOW,
  148.    EXPAND_WINDOW, 
  149.    ACTIVATE_WORKBENCH, 
  150.    OPEN_PALETTE, 
  151.    EXECUTE_COMMAND,
  152.    INSERT_DATE, 
  153.    CYCLE_WINDOWS, 
  154.    SCREEN_TO_FRONT, 
  155.    CENTRE_SCREEN,
  156.    SCREEN_TO_BACK, 
  157.    BLANK_DISPLAY
  158.    };
  159.  
  160. UWORD conv15act[] = {
  161.    EXECUTE_COMMAND,
  162.    CLOSE_WINDOW,
  163.    ZIP_WINDOW,
  164.    SHRINK_WINDOW,
  165.    EXPAND_WINDOW,
  166.    CYCLE_WINDOWS,
  167.    OPEN_PALETTE,
  168.    SCREEN_TO_FRONT,
  169.    SCREEN_TO_BACK,
  170.    ACTIVATE_WORKBENCH,
  171.    CENTRE_SCREEN,
  172.    BLANK_DISPLAY,
  173.    INSERT_TEXT,
  174.    INSERT_DATE,
  175.    SHOW_INTERFACE,
  176.    CYCLE_WINDOWS,
  177.    SET_DEF_PUB_SCREEN,
  178.    MENU_SHORTCUT
  179.    };
  180.  
  181.  
  182.  
  183.  
  184. /* close what we opened */
  185. static void
  186.    CloseResources(void)
  187. {
  188.    FreeYakIcon();      /* may already be gone, but so what? */
  189.    
  190.    if (ProgramName) FreeVec(ProgramName);
  191.    
  192.    /* NULL pointers are valide so don't waste time to test them */
  193.    CloseLibrary((struct Library *)IntuitionBase);
  194.    CloseLibrary(IFFParseBase);
  195.    CloseLibrary(CxBase);
  196.    CloseLocaleStuff();
  197. }
  198.  
  199. /* open libraries, devices that we need */
  200. static BOOL
  201.    OpenResources(void)
  202. {
  203.    if ((IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 37L)) &&
  204.        (IFFParseBase  = OpenLibrary("iffparse.library", 37L)) && 
  205.        (CxBase        = OpenLibrary("commodities.library",36L)))
  206.    {
  207.       return TRUE;
  208.    }
  209.    CloseResources();
  210.    return FALSE;
  211. }
  212.  
  213.  
  214.  
  215. /* simple requester with args */
  216. void
  217.    PostError(char *body, ... )
  218. {
  219.    struct EasyStruct es;
  220.    va_list args;
  221.    
  222.    /* setup the argument array */
  223.    va_start( args, body );
  224.    
  225.    /* initialise the structure */
  226.    es.es_StructSize = sizeof(struct EasyStruct);
  227.    es.es_Flags = 0L;
  228.    es.es_Title = "Yak Convert";
  229.    es.es_TextFormat = body;
  230.    es.es_GadgetFormat = "OK";
  231.    
  232.    /* display the requester */
  233.    EasyRequestArgs(NULL, &es, NULL, args);
  234.    
  235.    /* free the arguments */
  236.    va_end( args );
  237. }
  238.  
  239.  
  240. static __regargs BOOL
  241.    FReadLong(BPTR fh, LONG *n)
  242. {
  243.    return (BOOL)(FRead(fh, (UBYTE *)n, sizeof(LONG), 1) == 1);
  244. }
  245.  
  246. static __regargs BOOL
  247.    FReadString(BPTR fh, char *buf, LONG len)
  248. {
  249.    FGets(fh, buf, len-1);
  250.    buf[strlen(buf)-1] = '\0';      /* '\n' --> '\0' */
  251.    return (BOOL)(IoErr() == 0);
  252. }
  253.  
  254.  
  255.  
  256. /* 
  257.  * This function scans integers in a string
  258.  * It returns the number of integers found.
  259.  * Max, is the maxumum number of integers to find to avoid writing beyond the limit 
  260.  * of the array
  261.  */
  262.  
  263. static UBYTE
  264.    ScanInt( char *str, UBYTE Max, int *array )
  265. {
  266.    int i;
  267.    UBYTE n = 0;
  268.    BYTE neg;
  269.    BOOL new_token;
  270.    
  271.    while ((*str != '\0') && (n < Max))
  272.    {
  273.       while (*str == ' ')
  274.          ++str;
  275.       
  276.       if (*str == '-') 
  277.       {
  278.          ++str;
  279.          neg = 1;
  280.       }
  281.       else
  282.       {
  283.          neg = 0;
  284.       }
  285.       
  286.       i = 0;
  287.       
  288.       new_token = (*str >= '0' && *str <= '9');       
  289.       
  290.       while (*str >= '0' && *str <= '9')
  291.          i = (i << 1) + (i << 3) + *str++ - '0';
  292.       
  293.       if (new_token)
  294.       {
  295.          array[n] = (int)((neg)?-i:i);
  296.          n++;
  297.       }
  298.       
  299.       if (*str != '\0')
  300.          ++str;
  301.    }
  302.    return(n);
  303. }
  304.  
  305.  
  306.  
  307.  
  308.  
  309. /* Load old settings */
  310. void
  311.    LoadOldSettings(void)
  312. {
  313.    BPTR            inconf, inkeys;
  314.    LONG   ID, n, i;
  315.    BOOL            boolboy;
  316.    UWORD           type, opts;
  317.    char            keydef[512];
  318.    char            keyarg[512];
  319.    char            pat[PATLEN+1], buf[256];
  320.    LONG            num;
  321.    YakHotKey      *yhk;
  322.    YakHotKey      *datehk, *doshk;
  323.    
  324.    /* First: set default values */
  325.    SetDefaultSettings();
  326.    
  327.    if (inconf=Open("S:Yak.prefs", MODE_OLDFILE))
  328.    {
  329.       
  330.       FReadLong(inconf, &ID);
  331.       if ( (ID == CONFIG_ID13) || (ID == CONFIG_ID15) )
  332.       {
  333.          /* TOGGLES */
  334.          FReadLong(inconf, &n);
  335.          for (i = 0; i < n; i++)
  336.          {
  337.             FRead(inconf, (UBYTE *)&boolboy, sizeof(BOOL), 1);
  338.             if (convtog[i]) 
  339.                *convtog[i] = boolboy;
  340.          }
  341.          
  342.          if (OldScreenCycling)
  343.          {
  344.             Window_To_Front.Options |= Opt_ScreenToFront;
  345.             Window_To_Back.Options  |= Opt_ScreenToBack;
  346.          }
  347.          else
  348.          {
  349.             Window_To_Front.Options &= ~Opt_ScreenToFront;
  350.             Window_To_Back.Options  &= ~Opt_ScreenToBack;
  351.          }
  352.          
  353.          /* HOTKEYS */
  354.          if (ID == CONFIG_ID13)
  355.          {
  356.             inkeys = inconf;
  357.             FReadLong(inkeys, &n);
  358.             for (i = 0; i < n; i++)
  359.             {
  360.                type = i;
  361.                FReadString(inkeys, keydef, 256);
  362.                
  363.                if (yhk = NewYakHotKey(conv13act[type]))
  364.                {
  365.                   yhk->yhk_State = YKHK_ACTIVE;
  366.                   
  367.                   ModifyYHKKeyDef(yhk, keydef);
  368.                   
  369.                   /* No arguments , no options*/
  370.                   DefaultOptions(yhk);
  371.                   
  372.                   if (type == OLD13_CENTRE_SCREEN)
  373.                      yhk->yhk_Option[1].Flags = HKO_MOVE_HORIZONTAL_CENTER|HKO_NO_VERTICAL_MOVING;
  374.                   
  375.                   if (type == OLD13_DOS_COMMAND)
  376.                      doshk = yhk;
  377.                   
  378.                   if (type == OLD13_INSERT_DATE)
  379.                      datehk = yhk;
  380.                   
  381.                   AutomaticNaming (yhk);
  382.                }
  383.             }
  384.             
  385.          }
  386.          else   /* CONFIG_ID15 */
  387.          {
  388.             if (inkeys=Open("S:Yak.hotkeys", MODE_OLDFILE))
  389.             {
  390.                FReadLong(inkeys, &n);
  391.                if (n == HOTKEY_ID15)
  392.                {
  393.                   FReadLong(inkeys, &n);
  394.                   for (i = 0; i < n; i++)
  395.                   {
  396.                      FRead(inkeys, (UBYTE *)&type, sizeof(UWORD), 1);
  397.                      FRead(inkeys, (UBYTE *)&opts, sizeof(UWORD), 1);
  398.                      FReadString(inkeys, keydef, 512);
  399.                      FReadString(inkeys, keyarg, 512);
  400.                      
  401.                      if (yhk = NewYakHotKey(conv15act[type]))
  402.                      {
  403.                         yhk->yhk_State = YKHK_ACTIVE;
  404.                         
  405.                         ModifyYHKKeyDef(yhk, keydef);
  406.                         
  407.                         DefaultOptions(yhk);
  408.                         
  409.                         if(yhktypes[yhk->yhk_Type].yhkt_OptsList[0].Desc == ChangeScreenHKOption)
  410.                         {
  411.                            yhk->yhk_Option[0].Flags = (1<<opts);
  412.                         }
  413.                         
  414.                         if (type == OLD15_BACK_CYCLE_WINDOWS)
  415.                         {
  416.                            yhk->yhk_Option[1].Flags = HKO_BACK_CYCLE;
  417.                         }
  418.                         
  419.                         if (type == OLD15_CENTRE_SCREEN)
  420.                            yhk->yhk_Option[1].Flags = HKO_MOVE_HORIZONTAL_CENTER|HKO_NO_VERTICAL_MOVING;
  421.                         
  422.                         if (*keyarg)
  423.                         {
  424.                            switch(type)
  425.                            {
  426.                            case OLD15_DOS_COMMAND:
  427.                               if (((keyarg[0]=='r') || (keyarg[0]=='R')) &&
  428.                                   ((keyarg[1]=='x') || (keyarg[1]=='X')) &&
  429.                                   ((keyarg[2]==' ')))
  430.                               {
  431.                                  /* AREXX command */
  432.                                  yhk->yhk_Option[1].Flags = HKO_AREXX_COMMAND|HKO_AREXX_PORT|HKO_COMMAND;
  433.                                  yhk->yhk_Option[1].ArgStr[0] = DupStr(&keyarg[3]);
  434.                                  yhk->yhk_Option[1].ArgStr[1] = DupStr(DefaultAREXXPort);
  435.                               }
  436.                               else
  437.                               {
  438.                                  /* DOS Command */
  439.                                  yhk->yhk_Option[1].Flags = HKO_CLI_COMMAND|HKO_COMMAND|HKO_STACK_COMMAND|HKO_PRIORITY_COMMAND;
  440.                                  yhk->yhk_Option[1].ArgStr[0] = DupStr(keyarg);
  441.                               }
  442.                               break;
  443.                               
  444.                            case OLD15_INSERT_TEXT:
  445.                               yhk->yhk_Option[0].ArgStr[0] = DupStr(keyarg);
  446.                               yhk->yhk_Option[0].Flags = HKO_INSERT_STRING;
  447.                               break;
  448.                               
  449.                            case OLD15_INSERT_DATE:
  450.                               yhk->yhk_Option[0].ArgStr[0] = DupStr(keyarg);
  451.                               yhk->yhk_Option[0].Flags = HKO_DATE_FORMAT;
  452.                               break;
  453.                               
  454.                            case OLD15_MENU_SHORTCUT:
  455.                               if (ScanInt(keyarg, 3, (int *)yhk->yhk_Option[0].ArgNum) == 3)
  456.                                  yhk->yhk_Option[0].Flags |= (HKO_SUBITEM|HKO_SUBITEM_NUMBER);
  457.                               break;
  458.                            }
  459.                         }
  460.                         AutomaticNaming (yhk);
  461.                      }
  462.                   }
  463.                }
  464.                else
  465.                   PostError(getString(Invalid_existing_file_ERR), "S:Yak.hotkeys");
  466.                
  467.                Close(inkeys);
  468.             }
  469.          }
  470.          
  471.          /* PATTERNS */
  472.          FReadLong(inconf, &n);
  473.          for (i = 0; i < n; i++)
  474.          {
  475.             FReadString(inconf, pat, PATLEN+1);
  476.             if (convpat[i])
  477.             {
  478.                strncpy(convpat[i], pat, PATLEN);
  479.                convpat[i][PATLEN] = '\0';
  480.             }
  481.             else
  482.             {
  483.                /* ClickWindows : OBSOLETE */
  484.                if (strcmp("~(Workbench)", pat))
  485.                {
  486.                   Window_To_Front.Options &= ~Opt_ExcludeWbWindow;
  487.                }
  488.                else
  489.                {
  490.                   Window_To_Front.Options |= Opt_ExcludeWbWindow;
  491.                }
  492.             }
  493.             
  494.          }
  495.          strcpy(Window_To_Back.ScreenPatternData.patstr, Window_To_Front.ScreenPatternData.patstr);
  496.          
  497.          if (ID == CONFIG_ID13)
  498.          {
  499.             /* POPCOMMAND  */
  500.             FReadString(inconf, buf, 256);
  501.             doshk->yhk_Option[1].ArgStr[0] = DupStr(buf);
  502.             doshk->yhk_Option[1].Flags = HKO_CLI_COMMAND|HKO_COMMAND|HKO_STACK_COMMAND|HKO_PRIORITY_COMMAND;
  503.             
  504.             /* DATE FORMAT */
  505.             FReadString(inconf, buf, 256);
  506.             datehk->yhk_Option[1].ArgStr[0] = DupStr(buf);
  507.             datehk->yhk_Option[1].Flags = HKO_DATE_FORMAT;
  508.          }
  509.          
  510.          /* CLICK VOLUME */
  511.          if (FReadLong(inconf, &num))
  512.             click_volume = num;
  513.          
  514.          /* BLANK SECS */
  515.          if (FReadLong(inconf, &num))
  516.             blanksecs = num;
  517.          
  518.          /* MBLANK SECS */
  519.          if (FReadLong(inconf, &num))
  520.             mblanksecs = num;
  521.          
  522.          /* MBLANK METHOD */
  523.          if (FReadLong(inconf, &num))
  524.             mouseblank = num;
  525.          
  526.          /* AUTOPOINT DELAY */
  527.          if (FReadLong(inconf, &num))
  528.             autopoint_delay = num;
  529.       }
  530.       else
  531.          PostError(getString(Invalid_existing_file_ERR), "S:Yak.prefs");
  532.       
  533.       Close(inconf);
  534.    }
  535.    else 
  536.       PostError("%s S:Yak.prefs", getString(Opening_prefs_file_ERR));
  537. }
  538.  
  539.  
  540. #ifdef _DCC
  541. void _waitwbmsg(void);
  542. static void
  543.    uncalled(void)
  544. {
  545.    _waitwbmsg();
  546. }
  547. #endif
  548.  
  549. #define DEF_CURRENTDIR  "SYS:"
  550.  
  551. void
  552.    MAIN(void)
  553. {
  554.    BPTR newdir=NULL, olddir;
  555.    
  556.    if (OpenResources())
  557.    {   
  558.       if (WBMsg)              /* WB Startup */
  559.       {
  560.          struct WBArg *wbarg=&WBMsg->sm_ArgList[0];
  561.          
  562.          /* Get Program Name */
  563.          if (ProgramName=AllocVec(256, MEMF_CLEAR))
  564.          {
  565.             BPTR lock=GetProgramDir();
  566.             if (NameFromLock(lock, ProgramName, 256))
  567.                AddPart(ProgramName, wbarg->wa_Name, 256);
  568.          }
  569.          
  570.          /* Current Directory */
  571.          if (newdir = Lock(DEF_CURRENTDIR, ACCESS_READ))
  572.             olddir = CurrentDir(newdir);
  573.       }
  574.       else                          /* CLI Startup */
  575.       {
  576.          STRPTR TmpName;
  577.                 
  578.          /* Get Program Name */
  579.          if ((ProgramName=AllocVec(256, MEMF_CLEAR)) &&
  580.              (TmpName    =AllocVec(256, MEMF_CLEAR)))
  581.          {
  582.             BPTR lock=GetProgramDir();
  583.  
  584.             if (NameFromLock(lock, ProgramName, 256))
  585.             {
  586.                int i;
  587.  
  588.                GetProgramName(TmpName, 256);
  589.  
  590.                /* when run in background program name 
  591.                 * includes part of program dir so keep
  592.                 * only the last part of it 
  593.                 */
  594.                i = strlen(TmpName);
  595.                while ((i>0) && (TmpName[i] != '/'))
  596.                {
  597.                   i--;
  598.                }
  599.                if (TmpName[i] == '/')
  600.                {
  601.                   i++;
  602.                }
  603.                AddPart(ProgramName, &TmpName[i], 256);
  604.             }
  605.          }
  606.       }
  607.  
  608.       /* process tool-types */
  609.       GetYakIcon(ProgramName);
  610.       
  611.       /* Open the right locale if tooltype LANGUAGE is used */
  612.       OpenLocaleStuff(TTString("LANGUAGE",NULL));
  613.       
  614.       PostError(getString(About_Convert_STRING));
  615.       
  616.       InitYakHotKeyList();
  617.       
  618.       LoadOldSettings();
  619.       
  620.       /* Kill old running Yak so that it doesn't interfere with new prefs */
  621.       BrokerCommand("Yak", CXCMD_KILL);
  622.       
  623.       SaveSettings(ENVARC_CONFIG_FILE);
  624.       
  625.       CopyFile(ENVARC_CONFIG_FILE, ENV_CONFIG_FILE);
  626.       
  627.       DeleteYakHotKeyList();
  628.       
  629.       if (newdir)
  630.       {
  631.          CurrentDir(olddir);
  632.          UnLock(newdir);
  633.       }
  634.       
  635.       CloseResources();
  636.    }
  637. }
  638.  
  639.